home *** CD-ROM | disk | FTP | other *** search
/ Aminet 51 / Aminet 51 (2002)(GTI - Schatztruhe)[!][Oct 2002].iso / Aminet / gfx / 3d / pointfusion.lha / pointfusion.men next >
Encoding:
Reflections/Monzoom script  |  2004-08-23  |  1016 b   |  50 lines
  1. REFSKRIPT
  2.  
  3. GET_JA_NEIN sind punkte selektet? are points selected?
  4. GET_RESULT var_antwort
  5. IF_STR_EQUAL_GOTO var_antwort NEIN over
  6. GET_GEO_OBJ 1
  7. GET_RESULT var_obj
  8. AKT_KP_DREI var_obj
  9. GEO_NPTS var_obj
  10. GET_RESULT var_all
  11. SET_VAR var_pkt1 0
  12.  
  13. >check:
  14. ADD 1 var_pkt1
  15. GET_RESULT var_pkt1
  16.  
  17. >next:
  18. IF_EQUAL_GOTO var_all var_pkt1 end
  19. GEO_PT_IS_SELECTED var_obj var_pkt1
  20. GET_RESULT var_select
  21. IF_STR_EQUAL_GOTO var_select NEIN check
  22. GEO_GET_PT var_obj var_pkt1
  23. GET_RESULT var_kor
  24. ADD 1 var_pkt1
  25. GET_RESULT var_pkt2
  26. IF_STR_EQUAL_GOTO var_pkt2 var_all end
  27. GEO_PT_IS_SELECTED var_obj var_pkt2
  28. GET_RESULT var_select
  29. IF_STR_EQUAL_GOTO var_select NEIN check
  30. COPY_WORD var_kor 1
  31. GET_RESULT var_x
  32. COPY_WORD var_kor 2
  33. GET_RESULT var_y
  34. COPY_WORD var_kor 3
  35. GET_RESULT var_z
  36. PKT_BEWEGE_NACH var_pkt2 var_x var_y var_z
  37. ADD 2 var_pkt1
  38. GET_RESULT var_pkt1
  39. GOTO next
  40.  
  41. >end:
  42. MELDUNG bentze nun die punkt verschmelzung. use now the point fusion.
  43. GOTO fertig
  44. >over:
  45. MELDUNG selektiere zuerst die gewünschten punkte
  46. GOTO fertig
  47. >fertig:
  48.  
  49. return 1
  50.